home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
NEWSOFT
/
AUGUST
/
WORKDISC
/
!Forthmacs
/
!Boot
next >
Wrap
Text File
|
1997-07-08
|
343b
|
10 lines
Iconsprites <Obey$Dir>.!Sprites
If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Run$Path <Obey$Dir>.risc_os.bin.,<Run$Path>
If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Path ,<Obey$Dir>.,<Obey$Dir>.tools.
If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Dir <Obey$Dir>
Unset ForthmacsTcl
Unset Forthmacsoptions
Set alias$cd dir %0